From 101f1af6d9d49e68aaa9557c68ab7df2af2eaa51 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 7 Sep 2002 22:50:44 +0000 Subject: [PATCH] (read-quoted-char): Apply listify-key-sequence to vector returned by this-single-command-raw-keys before appending it to unread-command-event. --- lisp/subr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 76304358601..4d1d1b350ec 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1092,7 +1092,7 @@ any other non-digit terminates the character code and is then used as input.")) (if inhibit-quit (setq quit-flag nil))) (cond ((null char)) ((not (integerp char)) - (setq unread-command-events (this-single-command-raw-keys) + (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys)) done t)) ((/= (logand char ?\M-\^@) 0) ;; Turn a meta-character into a character with the 0200 bit set. @@ -1109,7 +1109,7 @@ any other non-digit terminates the character code and is then used as input.")) ((and (not first) (eq char ?\C-m)) (setq done t)) ((not first) - (setq unread-command-events (this-single-command-raw-keys) + (setq unread-command-events (listify-key-sequence (this-single-command-raw-keys)) done t)) (t (setq code char done t))) -- 2.30.2